home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
HARDWARE.SWG
/
0005_Determine CPU Speed.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
1KB
|
55 lines
{
· Subject: How to determine mhz using TP6.0...
It seems to work pretty well, but on a 486/33DX it gave inacurate results...
}
Program CpuSpeed;
Uses
Crt;
Var
Speed, DelayCalibrate : Word;
Const
Offset = 9; { For TP 4.0, it should be 16 }
Procedure WaitForFloppy;
Var
tickTil : LongInt;
TimerTicks : LongInt Absolute $40 : $6C;
motorStatus : Byte Absolute $40 : $3F;
begin
if MotorStatus and $F > 0 then
begin
WriteLn('Loading...');
TickTil := TimerTicks + 91;
{There are $17FE80 ticks in a day}
if TickTil > $17FE80 then
Dec(TickTil, $17FE80);
Repeat Until (MotorStatus and $F = 0) or (TimerTicks >= TickTil);
end;
end;
begin
WaitForFloppy;
DelayCalibrate := MemW[Seg(CheckSnow): Ofs(CheckSnow)+Offset];
WriteLn('Delay calibration value is ', DelayCalibrate);
Speed := ((LongInt(1000) * DelayCalibrate) + 110970) div 438;
Write('Calculated speed: ', Speed div 100,'.');
WriteLn((speed div 10) MOD 10, speed MOD 10);
Write('CPU speed is probably ');
Case Speed OF
0..499 : WriteLn('4.77MHz or below');
500..699 : WriteLn('6MHz');
700..899 : WriteLn('8MHz');
900..1099 : WriteLn('10MHz');
1100..1399 : WriteLn('12MHz');
1400..1799 : WriteLn('16MHz');
1800..2199 : WriteLn('20MHz');
2200..2699 : WriteLn('25MHz');
2700..3599 : WriteLn('30MHz');
ELSE
WriteLn('30MHz or MORE!');
end;
end.